home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
64'er 1993 June
/
64er_Magazin_93-06_1993_Markt__Technik_de_Side_B.d64
/
listing 1-3
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2022-10-26
|
1KB
|
31 lines
10 rem *** vibrato
11 :
12 : d=500 :rem verzoegerung (delay)
13 : l=5 :rem schwingweite (level)
14 : g=20 :rem geschw. (speed)
15 : h=3500 :rem tonhoehe
19 :
20 rem * ton einschalten
21 :
22 s=54272:pokes+4,8:pokes+24,15 :rem stimme 1 loeschen und volle lautstaerke
23 pokes+6,255:pokes+5,0:pokes+4,33 :rem adsr und saegezahn-wellenform setzen
24 fori=0to10:next:pokes+4,32 :rem warten und ton auf ausklingen setzen
25 pokes,hand255:pokes+1,h/256 :rem tonhoehe mit low- und high-byte setzen
29 :
30 rem * virbato vorbereiten
31 :
32 ri=g :rem anfangsrichtung setzen (positiv : hochzaehlen)
33 za=l/2 :rem startschwingweite setzen (am anfang nur die haelfte !)
39 :
40 rem * vibrato !
41 :
42 fori=0tod:next :rem delay (warten)
43 :
44 fori=0toza :rem schleife fuer schwingweite
45 h=h+ri :rem tonhoehe entsprechend der geschwindigkeit veraendern
46 pokes,hand255:pokes+1,h/256 :rem neue tonhoehe als low- und high-byte setzen
47 next :rem ...das ganze bis zum ende der schwingweite.
48 za=l :rem nach erstem durchlauf auf vole schwingweite schalten.
49 ri=-ri :rem schwingrichtung umdrehen.
50 goto44 :rem und alles von vorne...